VERSION 5.00
Begin VB.UserControl ShapeInput 
   ClientHeight    =   324
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   384
   ScaleHeight     =   324
   ScaleWidth      =   384
End
Attribute VB_Name = "ShapeInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Private Sub UserControl_Initialize()
    Dim res As Long
    UserControl.Picture1.FillColor = RGB(150, 100, 100)
    res = ExtFloodFill(UserControl.hdc, X, Y, UserControl.Picture1.Point(X, Y), 1)
End Sub
